home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaf.d64
/
func.blocks'free
< prev
next >
Wrap
Text File
|
2007-02-28
|
589b
|
23 lines
0010 //
0020 // BY ╩ACK ┬ALDRIDGE
0030 ╞╒╬├ BLOCKS'FREE ├╠╧╙┼─
0040 ─╔═ DUMMY$ ╧╞ 1
0050 UNIT':=╓┴╠(╒╬╔╘$(:╠┼╬(╒╬╔╘$)-1))
0060 DRIVE:=UNIT' ═╧─ 2
0070 UNIT':=(UNIT' ─╔╓ 2)+8
0080 ╘╥┴╨
0090 ═╧╒╬╘
0100 ╧╨┼╬ ╞╔╠┼ 79,"U"+╙╘╥$(UNIT')+":$"+╙╘╥$(DRIVE)+"/S1/T+/D-"
0110 DUMMY$:=╟┼╘$(79,2); BLOCKS#:=0
0120 ╞╧╥ X#:=1 ╘╧ 35 ─╧
0130 SECTORS:=╧╥─(╟┼╘$(79,4))
0140 ╔╞ X#<>18 ╘╚┼╬ BLOCKS#:+SECTORS
0150 ┼╬─╞╧╥ X#
0160 ├╠╧╙┼ ╞╔╠┼ 79
0170 ╥┼╘╒╥╬ BLOCKS#
0180 ╚┴╬─╠┼╥
0190 ├╠╧╙┼ ╞╔╠┼ 79
0200 ╥┼╘╒╥╬ -1
0210 ┼╬─╘╥┴╨
0220 ┼╬─╞╒╬├ BLOCKS'FREE